Apple II Magazines (DO)/Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).zip/Softdisk Magazette Volume 2, No. 02 (1982-10)(Softdisk)(Side B).do/FISHERMAN'S.WHARF.bas

BASIC Source File | 1996-12-24 | 18KB | 270 lines

0  IF  PEEK(104) < >12  OR  PEEK(3072)  THEN  PRINT  CHR$(4)"BLOADFISH": POKE 104,12: POKE 3072,0: TEXT : HOME : VTAB 12: PRINT "(RELOADING ABOVE TEXT SCREEN 2)": PRINT  CHR$(4)"RUNFISHERMAN'S.WHARF"
1  ONERR  GOTO 3000
2  GOTO 1930
10  CALL ML: COLOR= LB: FOR X = 39 -T TO 39: VLIN 25,33 AT X: NEXT : RETURN
20  REM <CTRL-J><CTRL-J> DRAW GRAPHICS SCREEN<CTRL-J><CTRL-J>
30  HOME : GR : POKE  -16302,0
40  COLOR= BK: FOR Y = 40 TO 47: HLIN 0,39 AT Y: NEXT
50  COLOR= LB: FOR Y = 0 TO 33: HLIN 0,39 AT Y: NEXT : COLOR= 6: FOR Y = 34 TO 47: HLIN 0,39 AT Y: NEXT
60  COLOR= 3: HLIN 0,20 AT 24: COLOR= BL: FOR Y = 25 TO 26: HLIN 0,20 AT Y: NEXT
70  FOR X = 3 TO 10  STEP 7
80  COLOR= 12: VLIN 27,33 AT X: VLIN 27,33 AT X +1: COLOR= 4: VLIN 34,47 AT X: VLIN 34,47 AT X +1
90  COLOR= 12: PLOT X -1,27: PLOT X +2,27
100  NEXT
110  COLOR= BK
120  VLIN 9,20 AT 7: VLIN 7,22 AT 8: VLIN 5,23 AT 9: VLIN 5,23 AT 10: VLIN 5,23 AT 11
130  VLIN 8,22 AT 12: VLIN 15,21 AT 13: VLIN 15,20 AT 14: VLIN 15,19 AT 15: VLIN 16,20 AT 16: VLIN 17,21 AT 17: VLIN 18,22 AT 18
140  VLIN 19,23 AT 19: VLIN 20,22 AT 20: VLIN 19,21 AT 21
150  FOR Y = 1 TO 6: HLIN 9,12 AT Y: NEXT
160  PLOT 8,2: PLOT 13,2: HLIN 13,15 AT 12: HLIN 13,15 AT 13: HLIN 13,15 AT 11: PLOT 13,10
170  COLOR= 5: HLIN 16,30 AT 12: PLOT 16,13
180  COLOR= 8
190  FOR X = 1 TO 4: VLIN 18,23 AT X: NEXT
200  RETURN
210  REM <CTRL-J><CTRL-J>  SCOREBOARD<CTRL-J><CTRL-J>
220  COLOR= LB: IF BR  THEN  FOR Y = 15 TO 33: GOTO 240
230  FOR Y = 13 TO 33
240  HLIN 25,39 AT Y: NEXT : COLOR= 6: FOR Y = 34 TO 38: HLIN 22,39 AT Y: NEXT
250  FOR Y = 39 TO 47: HLIN 20,39 AT Y: NEXT
260  COLOR= BK:X = 2:Y = 40: ON FS +1 GOSUB 2150,2160,2170,2180,2190,2200,2210,2220,2230,2240
270  COLOR= AQ:X = 16: ON JS +1 GOSUB 2150,2160,2170,2180,2190,2200,2210,2220,2230,2240
280  COLOR= WH:X = 31: ON GS +1 GOSUB 2150,2160,2170,2180,2190,2200,2210,2220,2230,2240
290  CALL CP
295  IF BR  THEN  FOR X = 1 TO 3: FOR T = 200 TO 255  STEP 5: POKE 768,T: POKE 769,15: CALL 770: NEXT : NEXT
300  IF FS = 10  OR GS = 10  OR JS = 10  THEN  POP : GOTO 2260
310 BR = 0: RETURN
320  REM <CTRL-J><CTRL-J> GULLIVER ANIMATION<CTRL-J><CTRL-J>
330  COLOR= OG: PLOT 39,28:T = 0: GOSUB 10
350  COLOR= OG: HLIN 38,39 AT 28: COLOR= WH: VLIN 25,27 AT 39:T = 2: GOSUB 10
360  COLOR= OG: HLIN 37,38 AT 28: COLOR= WH: VLIN 25,27 AT 38: PLOT 39,25: VLIN 27,31 AT 39: COLOR= BL: PLOT 39,26:T = 3: GOSUB 10
370  COLOR= OG: HLIN 36,37 AT 28: COLOR= WH: VLIN 25,27 AT 37: PLOT 38,25: VLIN 27,31 AT 38: VLIN 25,32 AT 39: COLOR= BL: PLOT 38,26:T = 4: GOSUB 10
380  COLOR= OG: HLIN 35,36 AT 28: COLOR= WH: VLIN 25,27 AT 36: PLOT 37,25: VLIN 27,31 AT 37: VLIN 25,32 AT 38: VLIN 29,33 AT 39: COLOR= BL: PLOT 37,26:T = 5: GOSUB 10
390  COLOR= OG: HLIN 34,35 AT 28: COLOR= WH: VLIN 25,27 AT 35: PLOT 36,25: VLIN 27,31 AT 36: VLIN 25,32 AT 37: VLIN 29,33 AT 38: VLIN 30,33 AT 39: COLOR= BL: PLOT 36,26:T = 6: GOSUB 10
400  COLOR= OG: HLIN 33,34 AT 28: COLOR= WH: VLIN 25,27 AT 34: PLOT 35,25: VLIN 27,31 AT 35: VLIN 25,32 AT 36: VLIN 29,33 AT 37: VLIN 30,33 AT 38: VLIN 30,33 AT 39: COLOR= BL: PLOT 35,26:T = 7: GOSUB 10
410  COLOR= OG: HLIN 32,33 AT 28: COLOR= WH: VLIN 25,27 AT 33: PLOT 34,25: VLIN 27,31 AT 34: VLIN 25,32 AT 35: VLIN 29,33 AT 36: VLIN 30,33 AT 37: VLIN 30,33 AT 38: VLIN 30,33 AT 39: COLOR= BL: PLOT 34,26:T = 8: GOSUB 10
420  COLOR= OG: HLIN 31,32 AT 28: COLOR= WH: VLIN 25,27 AT 32: PLOT 33,25: VLIN 27,31 AT 33: VLIN 25,32 AT 34: VLIN 29,33 AT 35: VLIN 30,33 AT 36: VLIN 30,33 AT 37: VLIN 30,33 AT 38: VLIN 30,33 AT 39: COLOR= BL: PLOT 33,26:T = 9: GOSUB 10
430  COLOR= OG: HLIN 30,31 AT 28: COLOR= WH: VLIN 25,27 AT 31: PLOT 32,25: VLIN 27,31 AT 32: VLIN 25,32 AT 33: VLIN 29,33 AT 34: VLIN 30,33 AT 35: VLIN 30,33 AT 36: VLIN 30,33 AT 37: VLIN 30,33 AT 38: VLIN 29,32 AT 39: COLOR= BL: PLOT 32,26: GOSUB 10
440  COLOR= OG: HLIN 29,30 AT 28: COLOR= WH: VLIN 25,27 AT 30: PLOT 31,25: VLIN 27,31 AT 31: VLIN 25,32 AT 32: VLIN 29,33 AT 33: VLIN 30,33 AT 34: VLIN 30,33 AT 35: VLIN 30,33 AT 36: VLIN 30,33 AT 37
450  VLIN 29,32 AT 38: VLIN 29,30 AT 39: COLOR= BL: PLOT 31,26
460  POKE  -16300,0
470  GOSUB 1380: RETURN
480  GOSUB 1380: CALL ML: POKE  -16300,0
490  COLOR= LB: HLIN 30,32 AT 25: COLOR= WH: PLOT 31,26: COLOR= BL: PLOT 31,27: COLOR= OG: HLIN 29,30 AT 29: COLOR= LB: PLOT 29,28: COLOR= WH: PLOT 30,28
500  PLOT 31,32: PLOT 32,33
510  COLOR= LB: HLIN 30,32 AT 26: PLOT 32,27: COLOR= WH: PLOT 31,27: VLIN 27,29 AT 29
520  PLOT 30,29
530  COLOR= OG: HLIN 29,30 AT 30: COLOR= BL: PLOT 30,28
540  COLOR= WH: HLIN 29,30 AT 30: PLOT 30,28: COLOR= LB: HLIN 29,31 AT 27
550  COLOR= WH: PLOT 31,33: HLIN 29,30 AT 31
560  COLOR= BL: PLOT 30,29: COLOR= OG: HLIN 28,29 AT 31
570  COLOR= LB: HLIN 29,32 AT 28
580  COLOR= WH: PLOT 30,29: HLIN 28,29 AT 31
590  VLIN 29,31 AT 28: PLOT 29,31
600  HLIN 29,30 AT 32
610  COLOR= OG: HLIN 27,28 AT 32: COLOR= BL: PLOT 29,30
620  COLOR= LB: HLIN 31,33 AT 29
630  COLOR= WH: HLIN 27,28 AT 32: PLOT 29,30: COLOR= LB: HLIN 28,30 AT 29
640  COLOR= BL: PLOT 29,31: COLOR= WH: HLIN 29,30 AT 33
650  COLOR= WH: PLOT 29,31: HLIN 27,28 AT 33: VLIN 30,31 AT 27: COLOR= LB: HLIN 31,33 AT 28
660  HLIN 27,29 AT 30
670  COLOR= 13: VLIN 13,30 AT 29
680  COLOR=  PEEK(24579): PLOT  PEEK(FH), PEEK(FV)
690  FOR TI = 1 TO 3: GOSUB 700: GOSUB 720: GOSUB 740: GOSUB 720: NEXT :GS = GS +1: GOSUB 1430: RETURN
700  COLOR= WH: HLIN 28,29 AT 34: HLIN 27,29 AT 32: COLOR= OG: HLIN 26,27 AT 34: COLOR= BL: PLOT 28,32: COLOR= 6: PLOT 30,34: PLOT 28,35: IF JAWS  THEN  COLOR= AQ: PLOT 28,35
710  FOR T = 1 TO 150: NEXT : RETURN
720  COLOR= WH: PLOT 28,32: PLOT 27,34: PLOT 29,34: COLOR= BL: PLOT 27,32: PLOT 29,32: COLOR= 6: PLOT 26,34: PLOT 30,34: COLOR= OG: VLIN 34,35 AT 28
730  FOR T = 1 TO 150: NEXT : RETURN
740  COLOR= WH: HLIN 27,29 AT 32: PLOT 28,34: COLOR= LB: PLOT 28,35: COLOR= OG: HLIN 29,30 AT 34: COLOR= BL: PLOT 28,32: COLOR= 6: PLOT 28,35: IF JAWS  THEN  COLOR= AQ: PLOT 28,35
750  FOR T = 1 TO 150: NEXT : RETURN
760  REM <CTRL-J><CTRL-J>  JAWS ANIMATION<CTRL-J><CTRL-J>
770  COLOR= AQ: HLIN 26,30 AT 47
780  HLIN 26,30 AT 46: PLOT 25,47: PLOT 31,47
790  HLIN 26,30 AT 45: PLOT 25,46: PLOT 31,46: PLOT 24,47: PLOT 32,47
800  HLIN 26,30 AT 44: PLOT 25,45: PLOT 31,45: PLOT 24,46: PLOT 32,46: PLOT 23,47: PLOT 33,47
810  HLIN 26,30 AT 43: PLOT 25,44: PLOT 31,44: PLOT 24,45: PLOT 32,45: PLOT 23,46: PLOT 33,46: PLOT 22,47: PLOT 34,47
820  HLIN 26,30 AT 42: PLOT 25,43: PLOT 31,43: PLOT 24,44: PLOT 32,44: PLOT 23,45: PLOT 33,45: PLOT 22,46: PLOT 34,46
830  HLIN 26,30 AT 41: PLOT 25,42: PLOT 31,42: PLOT 24,43: PLOT 32,43: PLOT 23,44: PLOT 33,44: PLOT 22,45: PLOT 34,45: COLOR= BL: PLOT 21,47: PLOT 35,47
840  COLOR= AQ
850  HLIN 26,30 AT 40: PLOT 25,41: PLOT 31,41: PLOT 24,42: PLOT 32,42: PLOT 23,43: PLOT 33,43: PLOT 22,44: PLOT 34,44: COLOR= BL: VLIN 46,47 AT 21: VLIN 46,47 AT 35
860  COLOR= AQ
870  HLIN 26,30 AT 39: PLOT 25,40: PLOT 31,40: PLOT 24,41: PLOT 32,41: PLOT 23,42: PLOT 33,42: PLOT 22,43: PLOT 34,43: COLOR= BL: PLOT 21,45: PLOT 35,45: COLOR= AQ: PLOT 21,47: PLOT 35,47
880  COLOR= BK: HLIN 26,30 AT 47: COLOR= AQ
890  HLIN 26,30 AT 38: PLOT 25,39: PLOT 31,39: PLOT 24,40: PLOT 32,40: PLOT 23,41: PLOT 33,41: PLOT 22,42: PLOT 34,42: COLOR= BL
900  PLOT 21,44: PLOT 35,44: COLOR= AQ: VLIN 46,47 AT 21: VLIN 46,47 AT 35: HLIN 26,30 AT 47: COLOR= BK: HLIN 26,30 AT 46: PLOT 25,47: PLOT 31,47
910  COLOR= AQ
920  HLIN 26,30 AT 37: PLOT 25,38: PLOT 31,38: PLOT 24,39: PLOT 32,39: PLOT 23,40: PLOT 33,40: PLOT 22,41: PLOT 34,41: COLOR= BL: PLOT 21,43: PLOT 35,43: COLOR= AQ: VLIN 45,46 AT 21: VLIN 45,46 AT 35: HLIN 26,30 AT 46: PLOT 20,47: PLOT 36,47
930  PLOT 25,47: PLOT 31,47: COLOR= BK: HLIN 26,30 AT 45: PLOT 25,46: PLOT 31,46: PLOT 24,47: PLOT 32,47: COLOR= AQ
940  HLIN 26,30 AT 36: PLOT 25,37: PLOT 31,37: PLOT 24,38: PLOT 32,38: PLOT 23,39: PLOT 33,39: PLOT 22,40: PLOT 34,40: VLIN 44,45 AT 21: VLIN 44,45 AT 35: HLIN 26,30 AT 45: PLOT 20,46: PLOT 36,46: PLOT 25,46: PLOT 31,46: COLOR= BL: PLOT 21,42: PLOT 35,42
950  COLOR= BK: HLIN 26,30 AT 44: PLOT 25,45: PLOT 31,45: PLOT 24,46: PLOT 32,46: COLOR= AQ
960  HLIN 26,30 AT 35: PLOT 25,36: PLOT 31,36: PLOT 24,37: PLOT 32,37: PLOT 23,38: PLOT 33,38: PLOT 22,39: PLOT 34,39: VLIN 43,44 AT 21: VLIN 43,44 AT 35: HLIN 26,30 AT 44: PLOT 20,45: PLOT 36,45: PLOT 25,45: PLOT 31,45: COLOR= BL: PLOT 21,41: PLOT 35,41
970  COLOR= BK: HLIN 26,30 AT 43: PLOT 25,44: PLOT 31,44: PLOT 24,45: PLOT 32,45: PLOT 23,47: PLOT 33,47: COLOR= AQ: PLOT 24,47: PLOT 32,47
980  POKE 24579, SCRN(  PEEK(FH), PEEK(FV))
990  COLOR= BK: IF  PEEK(FV) <41  THEN  PLOT 21,41: PLOT 25,41: GOTO 1020
1000  PLOT 21,42: PLOT 35,42
1010  POKE F1,1: CALL ML
1020  GOSUB 1320: RETURN
1030  REM <CTRL-J><CTRL-J>   OPEN WIDE<CTRL-J><CTRL-J>
1040  COLOR=  PEEK(24579): PLOT  PEEK(FH), PEEK(FV)
1050  COLOR= BK: FOR Y = 44 TO 47: HLIN 26,30 AT Y: NEXT : VLIN 45,47 AT 25: VLIN 45,47 AT 31: VLIN 45,47 AT 32: VLIN 45,47 AT 24: PLOT 23,47: PLOT 33,47
1060  COLOR= 15: VLIN 43,44 AT 26: PLOT 28,43: VLIN 43,44 AT 30: PLOT 24,45: PLOT 32,45: COLOR= 1: HLIN 26,30 AT 47: HLIN 27,29 AT 46
1070  FOR TI = 1 TO 50: POKE 768,255: POKE 769, INT(2 * RND(1)) +2: CALL 770: NEXT
1080  COLOR= AQ: HLIN 24,32 AT 47: HLIN 25,31 AT 46: HLIN 25,31 AT 45: HLIN 26,30 AT 44: COLOR= BK: HLIN 26,30 AT 43: PLOT 24,45: PLOT 32,45
1090  FOR T = 1 TO 10
1100  COLOR= BK: HLIN 9,12 AT 0: PLOT 8,1: PLOT 13,1: COLOR= 7: PLOT 8,2: PLOT 13,2
1110  COLOR= 7: PLOT 12,5
1120  POKE 768,50: POKE 769,10: CALL 770
1130  HLIN 9,12 AT 0: PLOT 8,1: PLOT 13,1: COLOR= BK: PLOT 8,2: PLOT 13,2
1140  COLOR= BK: PLOT 12,5
1150  FOR X = 1 TO 50: NEXT : NEXT
1160  IF  SCRN( 29,42) = 13  THEN 1180
1170 JS = JS +1: GOTO 1230
1180  REM <CTRL-J><CTRL-J>  BREAK ROD<CTRL-J><CTRL-J>
1190 BR = 1:JS = JS +BR
1200  POKE 768,255: POKE 769,4: CALL 770
1210  COLOR= LB: HLIN 20,30 AT 12: VLIN 11,14 AT 29
1220  COLOR= 5: HLIN 20,24 AT 13: VLIN 14,20 AT 24
1230  REM <CTRL-J><CTRL-J>    A CATCH<CTRL-J><CTRL-J>
1240  GOSUB 210: GOSUB 1500
1250  GOSUB 40: CALL CP
1260  GOTO 2000
1270  REM <CTRL-J><CTRL-J>   POKE TONE ROUTINE<CTRL-J><CTRL-J>
1280  FOR T = 770 TO 790: READ A: POKE T,A: NEXT
1290  RETURN
1300  DATA 173,48,192,136,208,5,206,1,3,240,9,202,208,245,174,0,3,76,2,3,96
1310  REM <CTRL-J><CTRL-J>  "JAWS" THEME<CTRL-J><CTRL-J>
1320  FOR T1 = 1 TO 4: POKE 768,255: POKE 769,100: CALL 770
1330  POKE 769,100: CALL 770
1340  POKE 768,242: POKE 769,100: CALL 770
1350  FOR T = 1 TO 150: NEXT : NEXT
1360  RETURN
1370  REM <CTRL-J><CTRL-J>  GULLIVER VOICE<CTRL-J><CTRL-J>
1380  FOR TI = 1 TO  INT(4 * RND(1)) +2: COLOR=  SCRN( 29,29): PLOT 29,28:C1 =  SCRN( 29,27):C2 =  SCRN( 29,29): COLOR= 9: PLOT 29,27: PLOT 29,29
1390  POKE 768,50: POKE 769,50: CALL 770
1400  COLOR= C1: PLOT 29,27: COLOR= C2: PLOT 29,29: COLOR= 9: PLOT 29,28
1410  FOR T = 1 TO 10 + INT(50 * RND(1)): NEXT T,TI: RETURN
1420  REM <CTRL-J><CTRL-J>   POOR SPORT<CTRL-J><CTRL-J>
1430  COLOR= 1: PLOT 13,5
1440  FOR TI = 1 TO 30
1450  POKE 768,255: POKE 769,4: CALL 770
1460  NEXT
1470  COLOR= LB: PLOT 13,5
1480  RETURN
1490  REM <CTRL-J><CTRL-J> "BY THE SEA"<CTRL-J><CTRL-J>
1500  RESTORE : FOR TI = 1 TO 21: READ X: NEXT : FOR TI = 1 TO 12
1510  READ X,Y: POKE 768,X: POKE 769,Y
1520  CALL 770: NEXT
1530  RETURN
1540  DATA 128,50,114,50,102,75,102,50,108,50,102,75,102,50,108,50,102,60,76,85,85,60,102,85
1550  REM <CTRL-J><CTRL-J>  TITLE PAGE<CTRL-J><CTRL-J>
1560  HOME : GR : VTAB 21
1570  COLOR= 6: FOR Y = 0 TO 10: HLIN 0,39 AT Y: NEXT : COLOR= 7: FOR Y = 11 TO 25: HLIN 0,39 AT Y: NEXT : COLOR= 3: FOR Y = 26 TO 36: HLIN 0,39 AT Y: NEXT
1580  COLOR= 2
1590  VLIN 1,12 AT 1: HLIN 2,5 AT 1: HLIN 2,5 AT 2: HLIN 2,4 AT 6: HLIN 2,4 AT 7: VLIN 7,12 AT 6: VLIN 4,5 AT 6: HLIN 8,11 AT 12: HLIN 8,11 AT 9: HLIN 8,11 AT 6
1600  VLIN 7,8 AT 8: VLIN 10,11 AT 11: VLIN 1,12 AT 13: HLIN 14,16 AT 7: VLIN 8,12 AT 16: VLIN 7,12 AT 18: HLIN 19,21 AT 7: HLIN 19,21 AT 10: HLIN 19,21 AT 12: VLIN 7,9 AT 21
1610  VLIN 6,12 AT 23: HLIN 24,26 AT 7: HLIN 27,30 AT 9: VLIN 15,22 AT 10: VLIN 16,22 AT 12: VLIN 16,22 AT 14: HLIN 11,13 AT 16: HLIN 16,19 AT 16: VLIN 17,22 AT 19
1620  HLIN 16,19 AT 22: HLIN 16,19 AT 19: VLIN 20,21 AT 16: PLOT 19,23: VLIN 15,22 AT 21: VLIN 16,22 AT 24: HLIN 22,23 AT 16: VLIN 14,15 AT 26: PLOT 25,14: HLIN 27,30 AT 16: HLIN 27,30 AT 22: HLIN 27,30 AT 19
1630  VLIN 17,18 AT 27: VLIN 20,21 AT 30: VLIN 24,35 AT 7: VLIN 24,35 AT 11: VLIN 28,35 AT 9
1640  HLIN 8,10 AT 35: VLIN 24,35 AT 13: VLIN 30,35 AT 16: HLIN 14,15 AT 30: HLIN 18,21 AT 29: HLIN 18,21 AT 32: HLIN 18,21 AT 35: VLIN 29,36 AT 21: VLIN 33,34 AT 18
1650  VLIN 29,35 AT 23: HLIN 24,26 AT 30: VLIN 24,35 AT 29: HLIN 30,32 AT 24: VLIN 25,28 AT 32: HLIN 28,30 AT 31
1660  HTAB 6: PRINT "A ONE-PLAYER GAME  BY JIM GANZ"
1670  PRINT "  FOR THE YOUNG AND THE YOUNG-AT-HEART": PRINT
1680  HTAB 9: PRINT "PRESS ANY KEY TO BEGIN ";: CALL  -756
1690  RETURN
1700  REM <CTRL-J><CTRL-J>  INSTRUCTIONS<CTRL-J><CTRL-J>
1710  HOME : INPUT "WHAT IS YOUR NAME? ";NM$
1720  PRINT : PRINT "WOULD YOU LIKE SOUND EFFECTS (Y/N)?";
1730  GET YN$: IF YN$ < >"Y"  AND YN$ < >"N"  THEN 1730
1740  PRINT YN$: IF YN$ = "N"  THEN  POKE 770,96
1750  HOME : PRINT "DO YOU WISH INSTRUCTIONS (Y/N)? ";: GET YN$: PRINT YN$
1760  IF YN$ < >"Y"  AND YN$ < >"N"  THEN 1750
1770  IF YN$ = "N"  THEN  RETURN
1780  TEXT : HOME : INVERSE
1790  HTAB 11: PRINT " FISHERMAN'S WHARF ": NORMAL : PRINT
1800  PRINT "    THIS IS A SIMPLE CONTEST BETWEEN A": PRINT
1810  PRINT "FISHERMAN (YOU), A HUNGRY SEAGULL NAMED": PRINT
1820  PRINT "GULLIVER AND A NASTY SHARK NAMED JAWS.": PRINT
1830  PRINT "THE OBJECT OF THE GAME IS TO CATCH MORE": PRINT
1840  PRINT "FISH THAN EITHER OF YOUR TWO OPPONENTS.": PRINT
1850  PRINT "BE CAREFUL, THOUGH - JAWS WON'T HESITATE"
1860  PRINT "BREAKING YOUR ROD IF YOU DON'T WATCH IT."
1870  PRINT "MANIPULATE YOUR LINE WITH PADDLE(0) AND": PRINT
1880  PRINT "WHEN YOU CATCH A FISH, REEL IT IN.": PRINT
1890  PRINT "THE GAME ENDS AFTER 10 TURNS (OR SOONER": PRINT
1900  PRINT "IF JAWS HAS HIS WAY...)"
1910  HTAB 25: INPUT "PRESS <RETURN> ";YN$
1920  RETURN
1930  REM INITIALIZATION
1940  GOSUB 1270: GOSUB 1550: GOSUB 1700
1950 ML = 24583:R1 = 24581:R2 = R1 +1:F1 = 24576:F2 = F1 +1:F3 = F1 +2:FH = 6:FV = 9
1960 R = 256:S = 1
1970 WH = 15:OG = 9:BL = 2:LB = 7:AQ = 14:BK = 0
1980 CP = 24952
1990  GOSUB 30: REM GRAPHICS
2000  POKE F1,0: POKE F2,0: POKE F3,0: POKE 24579,6
2010  POKE FH,15 * RND(1) +20: POKE FV,12 * RND(1) +34
2020 JAWS = 0:GULL = 0
2050  POKE R1,R * RND(S): POKE R2,R * RND(S): CALL ML: IF   NOT  PEEK(F3)  THEN 2050
2060 F =  PEEK(F3): POKE F3,0: ON F GOTO 2070,2100,2130
2070  IF   NOT JAWS  THEN  POKE  -16300,0: GOSUB 760:JAWS = 1: GOTO 2050
2080  IF  RND(1) <.04  OR ( RND(0) <.06  AND  SCRN( 29,42) = 13)  THEN  POKE  -16300,0: GOTO 1030
2090  GOTO 2050
2100  IF   NOT GULL  THEN  POKE  -16300,0: GOSUB 320:GULL = 1: POKE F2,GULL: GOTO 2050
2110  IF  RND(1) >.9  THEN  POKE  -16300,0: GOSUB 480: GOTO 1240
2120  GOTO 2050
2130 FS = FS +1: FOR T = 1 TO 10: POKE 768,255: POKE 769,25: CALL 770: NEXT
2140  GOTO 1240
2150  HLIN X,X +6 AT Y: HLIN X,X +6 AT Y +6: VLIN Y +1,Y +5 AT X: VLIN Y +1,Y +5 AT X +6: RETURN
2160  VLIN Y,Y +6 AT X +4: RETURN
2170  HLIN X,X +6 AT Y: HLIN X,X +6 AT Y +3: HLIN X,X +6 AT Y +6: VLIN Y +1,Y +2 AT X +6: VLIN Y +4,Y +5 AT X: RETURN
2180  HLIN X,X +6 AT Y: HLIN X,X +6 AT Y +6: VLIN Y +1,Y +5 AT X +6: HLIN X +2,X +5 AT Y +3: RETURN
2190  VLIN Y,Y +6 AT X +6: VLIN Y,Y +4 AT X: HLIN X +1,X +5 AT Y +4: RETURN
2200  HLIN X,X +6 AT Y: HLIN X,X +6 AT Y +6: HLIN X,X +6 AT Y +3: VLIN Y +1,Y +2 AT X: VLIN Y +4,Y +5 AT X +6: RETURN
2210  VLIN Y,Y +6 AT X: HLIN X +1,X +6 AT Y: VLIN Y +3,Y +6 AT X +6: HLIN X +1,X +5 AT Y +3: HLIN X +1,X +5 AT Y +6: RETURN
2220  HLIN X,X +6 AT Y: VLIN Y +1,Y +6 AT X +6: RETURN
2230  HLIN X,X +6 AT Y: HLIN X,X +6 AT Y +3: HLIN X,X +6 AT Y +6: VLIN Y,Y +6 AT X: VLIN Y,Y +6 AT X +6: RETURN
2240  HLIN X,X +6 AT Y: HLIN X,X +6 AT Y +3: VLIN Y +1,Y +2 AT X: VLIN Y,Y +6 AT X +6: HLIN X,X +5 AT Y +6: RETURN
2250  REM END OF GAME
2260  POKE  -16300,0: POKE  -16301,0: HOME
2280  COLOR= 7: HLIN 0,39 AT 0: HLIN 0,39 AT 39: COLOR= 6: FOR Y = 1 TO 38: HLIN 0,39 AT Y: NEXT
2290  COLOR= BK: IF FS = 10  THEN FS = 0:FL = 1: VLIN 17,23 AT 2
2300 X = 4:Y = 17: ON FS +1 GOSUB 2150,2160,2170,2180,2190,2200,2210,2220,2230,2240
2310  IF FL  THEN FS = 10:FL = 0
2320  COLOR= AQ: IF JS = 10  THEN JS = 0:FL = 1: VLIN 17,23 AT 16
2330 X = 18: ON JS +1 GOSUB 2150,2160,2170,2180,2190,2200,2210,2220,2230,2240
2340  IF FL  THEN JS = 10:FL = 0
2350  COLOR= WH: IF GS = 10  THEN GS = 0:FL = 1: VLIN 17,23 AT 30
2360 X = 32: ON GS +1 GOSUB 2150,2160,2170,2180,2190,2200,2210,2220,2230,2240
2370  IF FL  THEN GS = 10:FL = 0
2380  IF JS >GS  AND JS >FS  THEN  PRINT "THE WINNER IS ";: INVERSE : PRINT "JAWS";: GOTO 2420
2390  IF GS >JS  AND GS >FS  THEN  PRINT "THE WINNER IS ";: INVERSE : PRINT "GULLIVER";: GOTO 2420
2400  IF FS >JS  AND FS >GS  THEN  PRINT "THE WINNER IS ";: INVERSE : PRINT NM$;: GOTO 2420
2410  FLASH : PRINT " A TIE GAME ";
2420  NORMAL : PRINT "!": PRINT
2430  PRINT "WOULD YOU LIKE TO PLAY AGAIN (Y/N)? ";
2440  GET NM$: IF NM$ < >"Y"  AND NM$ < >"N"  THEN 2440
2450  PRINT NM$: IF NM$ = "Y"  THEN  RUN
2460  TEXT : HOME : PRINT  CHR$(4)"FP": REM RESETS POINTERS
3000  TEXT : HOME : PRINT  CHR$(4)"FP"
65535  REM
65535  REM
65535  REM    FISHERMAN'S WHARF
65535  REM
65535  REM           -*-
65535  REM
65535  REM A LOW-RES GAME FOR
65535  REM CHILDREN.
65535  REM
65535  REM   REQUIREMENTS:
65535  REM      APPLESOFT II
65535  REM      & GAME PADDLES
65535  REM      OR JOYSTICK.
65535  REM
65535  REM         03/1/81
65535  REM
65535  REM   ALL RIGHTS RESERVED
65535  REM
65535  REM       BY JIM GANZ
65535  REM      82 SPRING LANE
65535  REM   WEST HARTFORD, CONN
65535  REM          06107
65535  REM